function answer = ejer4()

		fprintf('\n________________________________________________\n');
		e = 0.000001;
		m = 100; %numero maximo de iteraciones permitidas
		x0 = 2;
		global a = 10;
	  
		fprintf('\nMetodo de Newton para la funcion x^3-a\n');
		fprintf('tolerancia de error: %f\n', e);
		fprintf('valor inicial proximo a la raiz: %f\n', x0);
      
		
		[hx, hf] = newton('fun',x0,e,m);
		clear global
		fprintf('\nRESULTADOS \n');

		fprintf('\nNumero de iteraciones: %d\n', length(hx));
      
		fprintf('Aproximaciones a la raiz: ');
		hx
		fprintf('raiz: %f\n',hx(end));

		fprintf('Imagenes de las aproximaciones a la raiz: ');
		hf
		fprintf('imagen de raiz: %f\n',hf(end));
		fprintf('\n________________________________________________\n');   
      
endfunction   
